The PC-SIG Library 10/The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso/PC_SIGCD/10/9/DISK1095.ZIP/APTRANS.PRG

Text File | 1980-01-01 | 2KB | 77 lines

*
* APTRANS
* PRINT PAYABLES TRANSACTION SUMMARY REPORT
SET HEADING OFF
SET SAFETY OFF
SET STATUS OFF
CLEAR
CLEAR ALL
SET TALK OFF
SET BELL OFF
@ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
@ 3,19 SAY ">> Payables Transaction Summary Report <<"
@ 5,29 SAY "Today's Date: "
?? DATE()
STORE " " TO ACTION
@ 22,6 SAY "PRESS 'M' TO RETURN TO MENU, ANY OTHER KEY TO START OUTPUT => " ;
GET ACTION
READ
STORE UPPER(ACTION) TO ACTION
IF ACTION="M"
   RETURN
ENDIF
* OPEN PAYABLES TRANSACTION FILE USING ACCOUNT NUMBER INDEX
USE PAYFILE INDEX PFACTNO
SET PRINT ON
SET DEVICE TO PRINT
SET CONSOLE OFF
GO TOP
STORE 0 TO RECNOW
STORE 1 TO PAGENUM
DO WHILE .NOT. EOF()
* PRINT HEADING
   @ 2,3 SAY "SMITH'S BIKEWORKS ACCOUNTS PAYABLE TRANSACTION SUMMARY "
   ?? DATE(), " PAGE:", STR(PAGENUM,3,0)
   @ 4,0 SAY "Account"
   @ 4,10 SAY "Recorded"
   @ 4,29 SAY "Payee"
   @ 4,45 SAY "Due Date"
   @ 4,57 SAY "Amount"
   @ 4,67 SAY "Paid  "
   @ 4,74 SAY "Check"
* PRINT ONE PAGE OF OUTPUT
   STORE 6 TO LINECNT
   DO WHILE LINECNT<60
* ONLY PRINT INVOICES WITH NON-ZERO AMOUNTS
      @ LINECNT,0 SAY ACCT_NUM
      @ LINECNT,10 SAY DATE_RECD
      @ LINECNT,19 SAY PAYEE
      @ LINECNT,45 SAY DATE_DUE
      @ LINECNT,55 SAY AMOUNT
      @ LINECNT,65 SAY DATE_PAID
      @ LINECNT,74 SAY CHECK_NUM
      STORE LINECNT+1 TO LINECNT
      @ LINECNT,0 SAY REFERENCE
* MARK TRANSACTIONS FLAGGED FOR DELETION
      IF DELETE()
         @ LINECNT,71 SAY "* DELETED"
      ENDIF
      STORE LINECNT+2 TO LINECNT
      ?
* STAY IN LOOP WHILE SKIP YIELDS A NEW RECORD
      STORE RECNO() TO RECNOW
      SKIP 1
* NEXT LINE CHECK FOR END OF FILE
      IF EOF()
         STORE 60 TO LINECNT
      ENDIF
   ENDDO
   EJECT
   STORE PAGENUM+1 TO PAGENUM
ENDDO
SET PRINT OFF
SET CONSOLE ON
SET DEVICE TO SCREEN
CLEAR
RETURN